diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index b3af4b987..4cf1e326b 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+1997-12-02  Tim Pierce  <twp@skepsis.com>
+
+	* stacks.c (scm_frame_procedure): Reverse the logic in the return
+	statement.  (Thanks to Doug Evans for pointing this out.)
+
 1997-12-01  Tim Pierce  <twp@skepsis.com>
 
 	* scmconfig.h.in: Regenerated for USCORE change in ../acconfig.h.
diff --git a/libguile/stacks.c b/libguile/stacks.c
index 0e6598351..abc9177f4 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -585,8 +585,8 @@ scm_frame_procedure (frame)
 	      SCM_ARG1,
 	      s_frame_procedure);
   return (SCM_FRAME_PROC_P (frame)
-	  ? SCM_BOOL_F
-	  : SCM_FRAME_PROC (frame));
+	  ? SCM_FRAME_PROC (frame)
+	  : SCM_BOOL_F);
 }
 
 SCM_PROC(s_frame_arguments, "frame-arguments", 1, 0, 0, scm_frame_arguments);