From 6855de9ec8501370c5f1a7cfb106b3722f31880f Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Mon, 22 May 2000 11:59:22 +0000
Subject: [PATCH] Fixed bug that skipped first entry in char_pp_2_string_list

---
 scsh/cstuff.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scsh/cstuff.c b/scsh/cstuff.c
index 4d6620c..ccb9fd6 100644
--- a/scsh/cstuff.c
+++ b/scsh/cstuff.c
@@ -6,9 +6,10 @@ s48_value char_pp_2_string_list(char **vec){
 
     S48_DECLARE_GC_PROTECT(1);
     S48_GC_PROTECT_1(list);
-
-    while (*(++ptr)){
+    
+    while (ptr && *(ptr)){
       list = s48_cons (s48_enter_string (*ptr), list);
+      ptr++;
     }
     S48_GC_UNPROTECT();
     return list;