diff --git a/extra/alien/marshall/marshall.factor b/extra/alien/marshall/marshall.factor
index 290e186b36..85b157e4a0 100644
--- a/extra/alien/marshall/marshall.factor
+++ b/extra/alien/marshall/marshall.factor
@@ -298,9 +298,6 @@ ALIAS: marshall-void* marshall-pointer
     ] if* ;
 
 : out-arg-unmarshaller ( type -- quot )
-    dup {
-        [ pointer-to-const? not ]
-        [ factorize-type pointer-to-primitive? ]
-    } 1&&
+    dup pointer-to-non-const-primitive?
     [ factorize-type primitive-unmarshaller ]
     [ drop [ drop ] ] if ;