@@ -1194,11 +1194,21 @@
 ;;
 (define (common:bash-glob instr)
   (string-split
    (with-input-from-pipe
        (conc "/bin/bash -c \"echo " instr "\"")
-     read-line)))
+       read-line)))
+
+;;======================================================================
+;; Some safety net stuff
+;;======================================================================
+
+;; return input if it is a list or return null
+(define (common:list-or-null inlst #!optional (ovrd #f))
+  (if (list? inlst)
+      inlst
+      (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
 ;;======================================================================