diff --git a/lisp/lisp.c b/lisp/lisp.c
index fed153d567a8d6293de8ff89c0b68c0d78e6e6dc..455a826d6e4deb65bf18b87641c8603dad9f98d1 100644
--- a/lisp/lisp.c
+++ b/lisp/lisp.c
@@ -1,7 +1,7 @@
 /*
  * main() entry point for a stand alone lisp image.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.18 2000/10/23 20:20:42 dtc Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.19 2000/10/24 11:02:49 dtc Exp $
  *
  */
 
@@ -225,7 +225,7 @@ void main(int argc, char *argv[], char *envp[])
     while ((arg = *++argptr) != NULL)
       {
 	if (strcmp(arg, "-batch") == 0)
-	  SetSymbolGlobalValue(BATCH_MODE, T);
+	  SetSymbolValue(BATCH_MODE, T);
       }
 
     /*