diff --git a/images/apple/DRAWL.po b/images/apple/DRAWL.po
index fdb4bf8..ae06e4b 100644
Binary files a/images/apple/DRAWL.po and b/images/apple/DRAWL.po differ
diff --git a/src/lisp/s-expr.pla b/src/lisp/s-expr.pla
index 00e5648..4f5a1db 100644
--- a/src/lisp/s-expr.pla
+++ b/src/lisp/s-expr.pla
@@ -1299,6 +1299,11 @@ end
 // Arrays
 //
 
+def natv_arrayp(symptr, expr)
+  expr = eval_expr(expr=>car)
+  return bool_pred(expr and expr->type == ARRAY_TYPE)
+end
+
 def eval_index(arrayptr, expr)
   var idx[4], i, ii, index
 
@@ -1658,6 +1663,7 @@ new_sym("NULL")=>natv     = @natv_null
 new_sym("FUNCTION")=>natv = @natv_function
 new_sym("DEFINE")=>natv   = @natv_define
 new_sym("ARRAY")=>natv    = @natv_array
+new_sym("ARRAY?")=>natv   = @natv_arrayp
 new_sym("CSET")=>natv     = @natv_cset
 new_sym("CSETQ")=>natv    = @natv_csetq
 new_sym(":=")=>natv       = @natv_csetq