@@ -1201,14 +1201,16 @@
 ;;======================================================================
 ;; Some safety net stuff
 ;;======================================================================
 
 ;; return input if it is a list or return null
-(define (common:list-or-null inlst #!optional (ovrd #f))
+(define (common:list-or-null inlst #!key (ovrd #f)(message #f))
   (if (list? inlst)
       inlst
-      (or ovrd '())))
+      (begin
+	(if message (debug:print-error 0 *default-log-port* message))
+	(or ovrd '()))))
   
 ;;======================================================================
 ;; T A R G E T S  ,   S T A T E ,   S T A T U S ,   
 ;;                    R U N N A M E    A N D   T E S T P A T T
 ;;======================================================================