Index: library/lib/make.tcl
===================================================================
diff -u -rd168a26bce713de8daa5bbe79d740926e961c5bc -r0552d3e313fa04163874fd130cc0eb2fdc05a6ea
--- library/lib/make.tcl	(.../make.tcl)	(revision d168a26bce713de8daa5bbe79d740926e961c5bc)
+++ library/lib/make.tcl	(.../make.tcl)	(revision 0552d3e313fa04163874fd130cc0eb2fdc05a6ea)
@@ -40,11 +40,11 @@
         file delete -force pkgIndex.tcl
       }
       #puts stderr "callinglevel <[current callinglevel]> $fls"
-      #puts stderr "[pwd]:\n\tcall eval pkg_mkIndex -verbose -direct . $fls"
-      if {[catch {pkg_mkIndex -verbose -direct . {*}$fls} errs]} {
-        puts stderr "!!! $errs"
+      puts stderr "[pwd]:\n\tcall eval pkg_mkIndex -verbose -direct . $fls"
+      if {[catch {pkg_mkIndex -verbose -direct -load nsf . {*}$fls} errs]} {
+        puts stderr "*** $errs"
       }
-      #puts stderr "[pwd] done"
+      puts stderr "[pwd] done"
     }
     
     foreach addFile [glob -nocomplain *.add] {
@@ -59,7 +59,7 @@
     #puts stderr "+++ mkIndex name=$name, pwd=[pwd] DONE"
   }
 
-  :method inEachDir {path cmd} {
+  :public method inEachDir {path cmd} {
     #puts stderr "[pwd] inEachDir $path  [file isdirectory $path]"
     if { [file isdirectory $path] 
          && ![string match *CVS $path]
@@ -102,7 +102,7 @@
   }
 
   foreach subcmd [array names :destructive] {
-    :method $subcmd args {
+    :public method $subcmd args {
       #puts stderr " [pwd] call: '::tcl_file [current method] $args'"
       ::tcl_file [current method] {*}$args
     }
@@ -137,7 +137,7 @@
 if {$argv eq "-n"} {set argv "-n -all"}
 
 Class create Script {
-  :class-object method create args {
+  :public class-object method create args {
     lappend args {*}$::argv
     set s [next]
     set method [list]
@@ -155,13 +155,13 @@
     puts stderr "$::argv0: Unknown option ´-$args´ provided"
   }
 
-  :method n {} {file mixin make::-n}
+  :public method n {} {file mixin make::-n}
 
-  :method all {} {make inEachDir . mkIndex}
+  :public method all {} {make inEachDir . mkIndex}
 
-  :method dir {dirName} {cd $dirName}
+  :public method dir {dirName} {cd $dirName}
 
-  :method target {path} {make eval [list set :target $path]}
+  :public method target {path} {make eval [list set :target $path]}
 
   :create main
 }