Index: library/lib/make.tcl
===================================================================
diff -u -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -r073177c8b1304443107efeeb0c334e9477346778
--- library/lib/make.tcl	(.../make.tcl)	(revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0)
+++ library/lib/make.tcl	(.../make.tcl)	(revision 073177c8b1304443107efeeb0c334e9477346778)
@@ -13,12 +13,12 @@
   #
   # shared lib add files for pkgIndex.tcl
   #
-  :method mkIndex {name} {
+  :object method mkIndex {name} {
     #puts stderr "+++ mkIndex in [pwd]"
     set fls {}
     foreach f [glob -nocomplain *tcl] {
       if {![file isdirectory $f]} {
-        set F [open $f]; set c [read $F]; close $F
+        set F [file open $f]; set c [read $F]; close $F
         if {[string match "*package provide*" $c]} { lappend fls $f }
       }
     }
@@ -75,10 +75,11 @@
         close $IN; close $OUT
       }
     }
+
     #puts stderr "+++ mkIndex name=$name, pwd=[pwd] DONE"
   }
 
-  :public method inEachDir {path cmd} {
+  :public object method inEachDir {path cmd} {
     #puts stderr "[pwd] inEachDir $path  [file isdirectory $path]"
     if { [file isdirectory $path] 
          && ![string match *CVS $path]
@@ -98,7 +99,7 @@
     }
   }
 
-  :method in {path cmd} {
+  :object method in {path cmd} {
     if {[file isdirectory $path] && ![string match *CVS $path]} {
       set olddir [pwd]
       cd $path
@@ -123,7 +124,7 @@
   }
 
   foreach subcmd [array names :destructive] {
-    :public method $subcmd args {
+    :public object method $subcmd args {
       #puts stderr " [pwd] call: '::tcl_file [current method] $args'"
       ::tcl_file [current method] {*}$args
     }
@@ -136,7 +137,7 @@
 
 ### minus n option
 nx::Class create make::-n
-foreach f [file info methods] {
+foreach f [file info object methods] {
   if {$f eq "unknown" || $f eq "next" || $f eq "self"} continue
   if {![file exists destructive($f)] || [file eval [list set :destructive($f)]]} {
     #puts stderr destruct=$f
@@ -158,7 +159,7 @@
 if {$argv eq "-n"} {set argv "-n -all"}
 
 nx::Class create Script {
-  :public class method create args {
+  :public object method create args {
     lappend args {*}$::argv
     set s [next]
     set method [list]
@@ -167,12 +168,15 @@
         "-all" {$s all}
         "-n" {$s n}
         "-*" {set method [string range $arg 1 end]}
-        default {$s $method $arg}
+        default {
+	  puts "$s $method $arg"
+	  $s $method $arg
+	}
       }
     }
   }
 
-  :method unknown args {
+  :object method unknown args {
     puts stderr "$::argv0: Unknown option ´-$args´ provided"
   }
 
@@ -195,4 +199,4 @@
 
 #puts stderr "+++ make.tcl finished."
 
-#exit $::result
\ No newline at end of file
+#exit $::result