diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index 65df8933e3ed723f4dfcf81475e3cc07c97e4b82..ea65b6510119366796eb38bbb37bec3d3a03b038 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -84,7 +84,8 @@
   (sap-ref-32 sap offset))
 
 (defun sap-ref-sap (sap offset)
-  "Returns the 32-bit system-area-pointer at OFFSET words from SAP.")
+  "Returns the 32-bit system-area-pointer at OFFSET words from SAP."
+  (sap-ref-sap sap offset))
 
 (defun signed-sap-ref-8 (sap offset)
   "Returns the signed 8-bit byte at Offset bytes from SAP."