--- a/ExternalLibrary.st	Fri Jun 03 18:15:16 2011 +0100
+++ b/ExternalLibrary.st	Wed Jun 08 22:53:07 2011 +0100
@@ -40,10 +40,28 @@
 "
 ! !
 
+!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: /var/local/cvs/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 '
 !
 
 version_SVN
@@ -55,3 +73,4 @@
 
 
 
+