diff --git a/bin/gendobj b/bin/gendobj
index dacee4e14..4da5006ec 100755
--- a/bin/gendobj
+++ b/bin/gendobj
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: gendobj,v 1.11 2002/03/19 01:10:02 mdb Exp $
+# $Id: gendobj,v 1.12 2002/04/11 19:11:07 mdb Exp $
 #
 # gendobj is used to generate DObject source file definitons basded on
 # abbreviated declarations. Because DObject fields all have standard
@@ -161,7 +161,7 @@ sub print_dobj_setters
     $cfield =~ s/(\w)/\U$1/;
 
     # some known types have special setters
-    if ($type eq "DSet") {
+    if ($type =~ ".*Set") {
     print OUT <<EOF;
 
     /**
@@ -204,7 +204,7 @@ sub print_dobj_setters
      * change. Proxied copies of this object (on clients) will apply the
      * value change when they received the attribute changed notification.
      */
-    public void set$cfield (DSet $field)
+    public void set$cfield ($type $field)
     {
         this.$field = $field;
         requestAttributeChange($fcode, $field);