   string.sc (10 Nov 1994 13:06:10)
           \cyberplx\lsci\sys\string.sc (23 Feb 1994 22:43:02)
===================
     620     620  |        (= strLen (StrSize str))
     621     621  |        (if (and (> argc 1) fromRight)
+            622  |            (for    ((= i (- selfLen strLen 1)))
-    622          |            (for    ((= i (- selfLen strLen)))
     623     623  |                    (>= i 0)
     624     624  |                    ((-- i))
===================
     828     828  |        (for ((= i (- mySize 1))) (>= i 0) ((-- i))
     829     829  |            (= cur (self at: i))
+            830  |            (if (and (> cur 32)
-    830          |            (if (and (> cur 21)
     831     831  |                        (< cur 128)
-    832          |                        (!= cur 32)
     833     832  |                 )
     834     833  |                (= rightMost i)
===================
     851     850  |            (= cur (self at: i))
     852     851  |
+            852  |            (if (and (> cur 32)
+            853  |                        (< cur 128) ;it's an alpha
-    853          |            (if (and (> cur 21)
-    854          |                        (< cur 128) 
-    855          |                        (!= cur 32) ;it's an alpha
     856     854  |                 )
     857     855  |                (self at: lag_i cur)
===================
