1 files changed, 7 insertions, 7 deletions

diff --git a/stream.c b/stream.c
index 64ac01d3..7122b6ff 100644
--- a/stream.c
+++ b/stream.c
@@ -744,7 +744,7 @@ static val string_in_get_line(val stream)
   if (lt(pos, length_str(string))) {
     val nlpos = find_char(string, pos, chr('\n'));
     val result = sub_str(string, pos, nlpos);
-    set(*cdr_l(pair), nlpos ? plus(nlpos, one) : length_str(string));
+    set(cdr_l(pair), nlpos ? plus(nlpos, one) : length_str(string));
     return result;
   }
 
@@ -758,7 +758,7 @@ static val string_in_get_char(val stream)
   val pos = cdr(pair);
 
   if (lt(pos, length_str(string))) {
-    set(*cdr_l(pair), plus(pos, one));
+    set(cdr_l(pair), plus(pos, one));
     return chr_str(string, pos);
   }
 
@@ -782,7 +782,7 @@ static val string_in_unget_char(val stream, val ch)
               lit("unget-char: ~s doesn't match the character that was read"),
               nao);
 
-  set(*cdr_l(pair), plus(pos, one));
+  set(cdr_l(pair), plus(pos, one));
   return ch;
 }
 
@@ -1033,8 +1033,8 @@ static val strlist_out_put_string(val stream, val str)
     strstream = make_string_output_stream();
   }
 
-  set(*car_l(cell), lines);
-  set(*cdr_l(cell), strstream);
+  set(car_l(cell), lines);
+  set(cdr_l(cell), strstream);
 
   return t;
 }
@@ -1051,8 +1051,8 @@ static val strlist_out_put_char(val stream, val ch)
     put_char(ch, strstream);
   }
 
-  set(*car_l(cell), lines);
-  set(*cdr_l(cell), strstream);
+  set(car_l(cell), lines);
+  set(cdr_l(cell), strstream);
 
   return t;
 }