Index: xotcl/generic/predefined.xotcl
===================================================================
diff -u -r5ce5a10c82bc948f50fc4542f844dcd50de1eae3 -r225b8b992e16760eca2a7fa7bf51533499c7cc84
--- xotcl/generic/predefined.xotcl	(.../predefined.xotcl)	(revision 5ce5a10c82bc948f50fc4542f844dcd50de1eae3)
+++ xotcl/generic/predefined.xotcl	(.../predefined.xotcl)	(revision 225b8b992e16760eca2a7fa7bf51533499c7cc84)
@@ -1,4 +1,4 @@
-# $Id: predefined.xotcl,v 1.3 2004/07/03 21:19:39 neumann Exp $
+# $Id: predefined.xotcl,v 1.4 2004/07/20 12:57:59 neumann Exp $
 
 # init must exist on Object. per default it is empty.
 ::xotcl::Object instproc init args {}
@@ -34,7 +34,7 @@
   puts stderr "the method [::xotcl::self proc] is deprecated; use instead '$cmd'"
   eval $cmd
 }
-# define commenad for relations between classes and methods
+# define relations between classes and methods
 ::xotcl::Class ::xotcl::Relations
 ::xotcl::Relations instproc get {obj prop} {$obj info $prop}
 ::xotcl::Relations instproc set {obj prop value} {::xotcl::setrelation $obj $prop $value}
@@ -61,7 +61,6 @@
 ::xotcl::Class instforward instfilter -default [list get set] xotcl::relmgr %1 %self %proc
 
 
-
 ::xotcl::Object instproc self {} {return [::xotcl::self]}
 ::xotcl::Object instproc defaultmethod {} {
   #if {[string compare "::" [::xotcl::my info parent]]} {