Modified: trunk/base/src/port/port.tcl (37239 => 37240)

--- trunk/base/src/port/port.tcl	2008-05-31 20:16:31 UTC (rev 37239)
+++ trunk/base/src/port/port.tcl	2008-05-31 20:20:27 UTC (rev 37240)
@@ -316,6 +316,11 @@
 
     if {[llength $portlist] == 0} {
         set portlist [get_current_port]
+
+        if {[llength $portlist] == 0} {
+            # there was no port in current directory
+            return 1
+        }
     }
 
     return 0
@@ -507,6 +512,7 @@
         ui_msg "To use the current port, you must be in a port's directory."
         ui_msg "(you might also see this message if a pseudo-port such as"
         ui_msg "outdated or installed expands to no ports)."
+        return [list]
     }
 
     set results {}