diff --git a/lisp/monitor.c b/lisp/monitor.c
index c95de35e4b04553ec357df5ec3b1ee79d587cff9..50224b8be2ca5f0f8fb751d27e685f040688b02d 100644
--- a/lisp/monitor.c
+++ b/lisp/monitor.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.1 1992/07/28 20:15:06 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.2 1992/12/17 13:20:45 wlott Exp $ */
 
 #include <stdio.h>
 #include <sys/types.h>
@@ -249,6 +249,8 @@ static void call_cmd(char **ptr)
 	       thing);
         return;
     }
+    else
+	function = thing;
 
     numargs = 0;
     while (more_p(ptr)) {