Index: plot.lisp
===================================================================
RCS file: /cvsroot/femlisp/femlisp/src/plot/plot.lisp,v
retrieving revision 1.4
diff -u -r1.4 plot.lisp
--- plot.lisp	7 Jun 2004 09:49:38 -0000	1.4
+++ plot.lisp	15 Sep 2004 02:14:52 -0000
@@ -50,7 +50,7 @@
 (defmethod plot :around (object &key &allow-other-keys)
   "Handles the *plot* parameter."
   (case *plot*
-    (t (call-next-method))
+    ((t) (call-next-method))
     (:message (format *trace-output* "~&<Plotting>~%")))
   ;; and generally we return the object itself
   object)