--- a/AspectAdaptor.st	Tue Feb 11 12:03:30 1997 +0100
+++ b/AspectAdaptor.st	Tue Feb 11 12:05:05 1997 +0100
@@ -185,6 +185,13 @@
     "Modified: 22.1.1997 / 18:28:51 / cg"
 !
 
+aspect:aSelector
+    "set the adapters change aspect - this is the aspect of the update message,
+     on which the adaptor reacts"
+
+    myAspect := aSelector.
+!
+
 forAspect
     "get the adapters aspect - if none was defined, the getMsg is returned"
 
@@ -229,6 +236,7 @@
     |target|
 
     target := super value.
+    target isNil ifTrue:[^ nil].
     ^ target perform:getMsg
 !
 
@@ -258,15 +266,15 @@
 
     ((changedObject == subject)
     or:[changedObject == subjectChannel]) ifTrue:[
-	something == self forAspect ifTrue:[
-	    self changed:#value
-	].
-	^ self
+        something == self forAspect ifTrue:[
+            self changed:#value
+        ].
+        ^ self
     ].
 ! !
 
 !AspectAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AspectAdaptor.st,v 1.16 1997-01-22 17:30:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AspectAdaptor.st,v 1.17 1997-02-11 11:05:05 ca Exp $'
 ! !