--- /home/pvaneynd/fakeroot/work/sourceforge/clocc/clocc/src/defsystem-3.x/defsystem.lisp	Sun Nov 11 22:12:22 2001
+++ defsystem.lisp	Sat Nov 17 11:09:20 2001
@@ -3379,10 +3379,14 @@
 	  ;; add the banner if needed
 	  #+cmu
 	  (when (component-banner component)
+	    (unless (stringp (component-banner component))
+	      (error "The banner should be a string, it is: ~S"
+	             (component-banner component)))
 	    (setf (getf ext:*herald-items*
 			(intern (string-upcase  (component-name component))
 				(find-package :keyword)))
-		  (component-banner component))))
+		  (list 
+		     (component-banner component)))))
 
       ;; Reset the package. (Cleanup form of unwind-protect.)
       ;;(in-package old-package)
