Index: generic/predefined.xotcl
===================================================================
diff -u -r199681097494e7dbacc4e1cc368638a058fec73d -r261afd3f6e91b27144e6614a535518bbec6d5cde
--- generic/predefined.xotcl	(.../predefined.xotcl)	(revision 199681097494e7dbacc4e1cc368638a058fec73d)
+++ generic/predefined.xotcl	(.../predefined.xotcl)	(revision 261afd3f6e91b27144e6614a535518bbec6d5cde)
@@ -178,19 +178,11 @@
 
   # Add setter methods. 
   #  
-  Object public method setter {methodName value:optional} {
-    if {[info exists value]} {
-      ::xotcl::setter [::xotcl::current object] -per-object $methodName $value
-    } else {
-      ::xotcl::setter [::xotcl::current object] -per-object $methodName
-    }
+  Object public method setter {methodName} {
+    ::xotcl::setter [::xotcl::current object] -per-object $methodName
   }
-  Class public method setter {methodName value:optional} {
-    if {[info exists value]} {
-      ::xotcl::setter [::xotcl::current object] $methodName $value
-    } else {
-      ::xotcl::setter [::xotcl::current object] $methodName
-    }
+  Class public method setter {methodName} {
+    ::xotcl::setter [::xotcl::current object] $methodName
   }
 
   ########################