--- a/PluggableAdaptor.st	Tue Mar 09 17:43:05 1999 +0100
+++ b/PluggableAdaptor.st	Tue Mar 09 19:10:06 1999 +0100
@@ -300,7 +300,9 @@
        model removeDependent:self
     ].
     model := anObject.
-    model addDependent:self
+    model notNil ifTrue:[
+        model addDependent:self
+    ]
 !
 
 performAction:aSelector 
@@ -354,5 +356,5 @@
 !PluggableAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.14 1997-02-21 19:38:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.15 1999-03-09 18:10:06 cg Exp $'
 ! !