--- trunk/base/src/port1.0/portclean.tcl 2010-07-01 12:15:59 UTC (rev 69339)
+++ trunk/base/src/port1.0/portclean.tcl 2010-07-01 12:22:06 UTC (rev 69340)
@@ -124,7 +124,7 @@
}
set count 0
- if {info exists patchfiles} {
+ if {[info exists patchfiles]} {
foreach file [option patchfiles] {
set patchfile [getdistname $file]
ui_debug "Looking for $patchfile"