diff --git a/src/osmsg.c b/src/osmsg.c
index 929b95f..6644d5a 100644
--- a/src/osmsg.c
+++ b/src/osmsg.c
@@ -233,15 +233,13 @@ LispPTR mess_read(LispPTR *args)
   struct stat sbuf;
   int size, save_size;
   char *base;
-  LispPTR *naddress;
   int i;
   static char temp_buf[MESSAGE_BUFFER_SIZE];
 
   SETJMP(NIL);
 
   /* Get buff address from LISP */
-  naddress = (LispPTR *)(NativeAligned4FromLAddr(args[0]));
-  base = (char *)(NativeAligned2FromLAddr(((OneDArray *)naddress)->base));
+  STRING_BASE(args[0], base);
 
   close(log_id);
   TIMEOUT(log_id = open(logfile, O_RDONLY));