diff --git a/scheme/big/external.scm b/scheme/big/external.scm
index d083ae5..9feb8dd 100644
--- a/scheme/big/external.scm
+++ b/scheme/big/external.scm
@@ -98,6 +98,11 @@
 			   losers)
 		 #f))))))
 
+; Re-lookup one external.
+
+(define (lookup-external external)
+  (external-lookup (external-name external)
+		   (external-value external)))
 
 ; Quietly look up all externals, returning #F if unsuccessful
 
diff --git a/scheme/more-interfaces.scm b/scheme/more-interfaces.scm
index b8301db..7c65237 100644
--- a/scheme/more-interfaces.scm
+++ b/scheme/more-interfaces.scm
@@ -289,6 +289,7 @@
   (export dynamic-load
 
           get-external
+	  lookup-external
 	  lookup-all-externals
 
 	  external?