diff --git a/unix/boot/spp/rpp/ratlibf/length.f b/unix/boot/spp/rpp/ratlibf/length.f
index 4bf20e409..fa6ff66a8 100644
--- a/unix/boot/spp/rpp/ratlibf/length.f
+++ b/unix/boot/spp/rpp/ratlibf/length.f
@@ -1,5 +1,5 @@
       integer function length (str)
-      integer str (100)
+      integer str (*)
       length = 0
 23000 if (.not.(str (length+1) .ne. -2))goto 23002
 23001 length = length + 1
diff --git a/unix/boot/spp/rpp/ratlibf/scopy.f b/unix/boot/spp/rpp/ratlibf/scopy.f
index a16bc5eed..8d0e686f6 100644
--- a/unix/boot/spp/rpp/ratlibf/scopy.f
+++ b/unix/boot/spp/rpp/ratlibf/scopy.f
@@ -1,5 +1,5 @@
       subroutine scopy (from, i, to, j)
-      integer from (100), to (100)
+      integer from (*), to (*)
       integer i, j
       integer k1, k2
       k2 = j
diff --git a/unix/boot/spp/rpp/rppfor/ludef.f b/unix/boot/spp/rpp/rppfor/ludef.f
index 3db6c8fef..a525f512a 100644
--- a/unix/boot/spp/rpp/rppfor/ludef.f
+++ b/unix/boot/spp/rpp/rppfor/ludef.f
@@ -1,5 +1,5 @@
       integer function ludef (id, defn, table)
-      integer id (100), defn (100)
+      integer id (*), defn (*)
       integer table
       common /cdefio/ bp, buf (4096)
       integer bp
diff --git a/unix/boot/spp/rpp/rppfor/pbstr.f b/unix/boot/spp/rpp/rppfor/pbstr.f
index da3a12a9a..08529d63b 100644
--- a/unix/boot/spp/rpp/rppfor/pbstr.f
+++ b/unix/boot/spp/rpp/rppfor/pbstr.f
@@ -1,8 +1,11 @@
       subroutine pbstr (s)
-      integer s(100)
+      integer s(*)
       integer lenstr, i
       integer length
       lenstr = length (s)
+      if (lenstr .eq. 0) then 
+         return
+      endif
       if (.not.(s(1) .eq. 46 .and. s(lenstr) .eq. 46))goto 23000
       if (.not.(lenstr .eq. 4))goto 23002
       if (.not.(s(2) .eq. 103))goto 23004
diff --git a/unix/boot/spp/rpp/rppfor/puttok.f b/unix/boot/spp/rpp/rppfor/puttok.f
index 41d4df64f..70f96720c 100644
--- a/unix/boot/spp/rpp/rppfor/puttok.f
+++ b/unix/boot/spp/rpp/rppfor/puttok.f
@@ -1,5 +1,5 @@
       subroutine puttok (str)
-      integer str (100)
+      integer str (*)
       integer i
       i = 1
 23000 if (.not.(str (i) .ne. -2))goto 23002
diff --git a/unix/boot/spp/rpp/rppfor/sdupl.f b/unix/boot/spp/rpp/rppfor/sdupl.f
index 0d35237a6..e711d42b2 100644
--- a/unix/boot/spp/rpp/rppfor/sdupl.f
+++ b/unix/boot/spp/rpp/rppfor/sdupl.f
@@ -1,5 +1,5 @@
       integer function sdupl (str)
-      integer str (100)
+      integer str (*)
       integer mem( 60000)
       common/cdsmem/mem
       integer i