Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	21 Jul 2005 12:10:40 -0000	1.30
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	31 Mar 2006 17:59:14 -0000	1.31
@@ -759,7 +759,7 @@
         set c [catch {::uplevel 1 $procname $args} ret]
         switch -exact $c {
             0 { # code ok
-                if {[llength $ret] > 0} {
+                if { $ret ne ""} {
                     lappend returns $ret
                 }
             }
@@ -774,7 +774,7 @@
                 return [list $ret]
             }
             3 { # code break -- terminate return current list of results.
-                if {[llength $ret] > 0} { 
+                if { $ret ne "" } { 
                     lappend returns $ret
                 }
                 return $returns