--- a/ExternalLibrary.st	Wed Apr 13 11:11:39 2011 +0200
+++ b/ExternalLibrary.st	Wed Apr 13 11:40:50 2011 +0200
@@ -40,8 +40,26 @@
 "
 ! !
 
+!ExternalLibrary methodsFor:'error reporting'!
+
+externalCallFailed
+    "{ Pragma: +optSpace }"
+
+    "report an error that some external libraray call failed.
+     The error is reported by raising the PrimitiveFailure exception."
+
+    <resource: #skipInDebuggersWalkBack>
+
+    |sender|
+
+    sender := thisContext sender.
+
+    ^ PrimitiveFailure raiseRequestWith:(Message selector:sender selector arguments:sender args)
+                       in:sender.
+! !
+
 !ExternalLibrary class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibrary.st,v 1.2 2010-02-01 11:29:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibrary.st,v 1.3 2011-04-13 09:40:50 stefan Exp $'
 ! !