Index: library/lib/xotcl1.xotcl
===================================================================
diff -u -rc619db7db573de1047ec1810dc0a8dc4d86ce98d -re5b7b9261b0de87bf7a45ff7416ecd967037fa0b
--- library/lib/xotcl1.xotcl	(.../xotcl1.xotcl)	(revision c619db7db573de1047ec1810dc0a8dc4d86ce98d)
+++ library/lib/xotcl1.xotcl	(.../xotcl1.xotcl)	(revision e5b7b9261b0de87bf7a45ff7416ecd967037fa0b)
@@ -118,12 +118,13 @@
   # We provide a default value for superclass (when no superclass is specified explicitely)
   # for defining the top-level class of the object system, such that different
   # object systems might co-exist.
-  
+
   createBootstrapAttributeSlots ::xotcl::Class {
     {__default_superclass ::xotcl::Object}
     {__default_metaclass ::xotcl::Class}
   }
 
+
 ############################################
 # system slots
 ############################################
@@ -149,6 +150,7 @@
   }
   ::xotcl::register_system_slots1 ::xotcl
 
+
   ########################
   # Info definition
   ########################
@@ -273,6 +275,7 @@
         }
     error "procedure \"$method\" doesn't have an argument \"$varName\""
   }
+
   classInfo eval {
     .proc instargs {o method} {::xotcl::info_args Class $o $method}
     .proc args     {o method} {::xotcl::info_args Object $o $method}
@@ -358,6 +361,7 @@
     ::xotcl::alias ::xotcl::objectInfo $cmdName $cmd
     ::xotcl::alias ::xotcl::classInfo $cmdName $cmd
   }
+
   foreach cmd [::info command ::xotcl::cmd::ClassInfo::*] {
     set cmdName [namespace tail $cmd]
     if {$cmdName in [list "forward" "method" "methods" \
@@ -366,6 +370,7 @@
                          "mixin" "mixinguard"]} continue
     ::xotcl::alias ::xotcl::classInfo $cmdName $cmd
   }
+
   ::xotcl::alias ::xotcl::objectInfo is ::xotcl::is
   ::xotcl::alias ::xotcl::classInfo is ::xotcl::is
   ::xotcl::alias ::xotcl::classInfo classparent ::xotcl::cmd::ObjectInfo::parent
@@ -390,7 +395,6 @@
   ::xotcl::alias classInfo pre      objectInfo::pre
   ::xotcl::alias classInfo post     objectInfo::post
 
-
   # emulation of isobject, isclass ...
   Object instproc isobject    {{object:substdefault "[self]"}} {::xotcl::is $object object}
   Object instproc isclass     {{class:substdefault  "[self]"}} {::xotcl::is $class class}