diff --git a/scheme/eval.sld b/scheme/eval.sld
index 5ed800b4..05a3c4cf 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -23,6 +23,7 @@
     setup-environment ; non-standard
     ;; Dynamic import
     %import
+    imported?
   )
   (begin
 
@@ -624,6 +625,10 @@
     (set! *global-environment* (setup-environment *initial-environment*))
     #t))
 
+;; Is the given library loaded?
+(define (imported? lis)
+  (c:lib-loaded? (lib:name->unique-string (lib:list->import-set lis))))
+
 ;; Wrapper around the actual shared object import function
 (define-c c:import-shared-obj
   "(void *data, int argc, closure _, object k, object fn, object entry_fnc)"