diff --git a/hemlock/linimage.lisp b/hemlock/linimage.lisp
index ee4b6e935943c1085859ae0ef4e72e4e4be85405..bf04b94315fb9e073c894b2ece82b335b6442ce5 100644
--- a/hemlock/linimage.lisp
+++ b/hemlock/linimage.lisp
@@ -193,7 +193,7 @@
 
 (defmacro u-vec-get-rep (u-vec index)
   `(svref *print-representation-vector*
-	  (%primitive 8bit-system-ref ,u-vec ,index)))
+	  (system:sap-ref-8 ,u-vec ,index)))
 
 ;;; display-losing-chars  --  Internal
 ;;;