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.27.2.3 -r1.27.2.4
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	21 Jul 2005 12:11:16 -0000	1.27.2.3
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	31 Mar 2006 18:00:46 -0000	1.27.2.4
@@ -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