Index: library/lib/package.xotcl =================================================================== diff -u -rc72f9f638677608fab1502cd696c8f2d6b2952f9 -ra6087540279fa5a9110728605795620ecd43e10e --- library/lib/package.xotcl (.../package.xotcl) (revision c72f9f638677608fab1502cd696c8f2d6b2952f9) +++ library/lib/package.xotcl (.../package.xotcl) (revision a6087540279fa5a9110728605795620ecd43e10e) @@ -33,7 +33,7 @@ } } - Object package + Object create package package set component . package set verbose 0 package proc unknown args { @@ -82,7 +82,7 @@ return $v } - Object package::tracker + Object create package::tracker package::tracker set verbose 0 package::tracker proc storeEntry {table index} { my instvar verbose $table @@ -103,7 +103,7 @@ ::Object add mixin [self]::M } - Class package::tracker::M + Class create package::tracker::M package::tracker::M instproc create {cls args} { set table [string tolower [string trimleft [self] :]] package::tracker storeEntry $table [lindex $args 0]