cd ~/scm/
diff -c /home/jaffer/scm/sys.c\~ /home/jaffer/scm/sys.c
*** /home/jaffer/scm/sys.c~	Sat Mar  2 11:05:55 1996
--- /home/jaffer/scm/sys.c	Wed Mar 13 23:43:36 1996
***************
*** 679,684 ****
--- 679,686 ----
    }
    wta(sym, "uninterned symbol? ", "");
  }
+ /* intern() and sysintern() return a pair;
+    CAR is the symbol, CDR is the value. */
  SCM intern(name, len)
       char *name;
       sizet len;
***************
*** 718,725 ****
      tmp = UCHARS(z);
      if (LENGTH(z) != len) goto trynext;
      for(i = len;i--;) if (((unsigned char *)name)[i] != tmp[i]) goto trynext;
      CDR(lsym) = val;
!     return CAR(lsym);
    trynext: ;
    }
    NEWCELL(lsym);
--- 720,728 ----
      tmp = UCHARS(z);
      if (LENGTH(z) != len) goto trynext;
      for(i = len;i--;) if (((unsigned char *)name)[i] != tmp[i]) goto trynext;
+     lsym = CAR(lsym);
      CDR(lsym) = val;
!     return lsym;
    trynext: ;
    }
    NEWCELL(lsym);

Diff exited abnormally with code 1 at Wed Mar 13 23:45:04