Modified: trunk/base/src/port/portindex.tcl (67111 => 67112)

--- trunk/base/src/port/portindex.tcl	2010-04-29 07:48:07 UTC (rev 67111)
+++ trunk/base/src/port/portindex.tcl	2010-04-29 08:16:08 UTC (rev 67112)
@@ -127,7 +127,7 @@
                 set ui_options(ports_debug) yes
             } elseif {$arg == "-o"} { # Set output directory
                 incr i
-                set outdir [lindex $argv $i]
+                set outdir [file join [pwd] [lindex $argv $i]]
             } elseif {$arg == "-p"} { # Set platform
                 incr i
                 set platlist [split [lindex $argv $i] _]
@@ -144,7 +144,7 @@
             }
         }
         default {
-            set directory $arg
+            set directory [file join [pwd] $arg]
         }
     }
 }