--- a/OSErrorHolder.st	Tue Feb 21 17:52:07 2006 +0100
+++ b/OSErrorHolder.st	Tue Feb 21 19:03:53 2006 +0100
@@ -141,6 +141,10 @@
     ^ Signals at:#noResourcesSignal
 !
 
+noVerbsSignal
+    ^ Signals at:#noVerbsSignal
+!
+
 nonexistentSignal
     "return the signal for non existing referents (i.e. device, file etc.)."
 
@@ -159,6 +163,10 @@
     ^ Signals at:#rangeErrorSignal
 !
 
+signalNamed:signalName
+    ^ Signals at:signalName
+!
+
 transferFaultSignal
     ^ Signals at:#transferFaultSignal
 !
@@ -311,6 +319,8 @@
                      notifier:'No Aggregation'.
         self setupSignal:#unknownNameSignal parent:OsIllegalOperation 
                      notifier:'Unknown member name'.
+        self setupSignal:#noVerbsSignal parent:OsIllegalOperation 
+                     notifier:'No verbs for OLE object'.
    ].
 
    "
@@ -345,8 +355,12 @@
     "Report an error."
     "Delegate to the receiver's error reporter."
 
-    (self class perform:errorCategory) raiseWith:self.
-self halt.
+    |signal|
+
+    "/ signal := self class perform:errorCategory.
+    signal := self class signalNamed:errorCategory.
+    signal raiseWith:self in:thisContext sender.
+
 "/    ^ self errorReporter reportOn:self
 ! !
 
@@ -363,7 +377,7 @@
 !OSErrorHolder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OSErrorHolder.st,v 1.9 2006-02-20 22:44:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OSErrorHolder.st,v 1.10 2006-02-21 18:03:53 cg Exp $'
 ! !
 
 OSErrorHolder initialize!