diff -rc Genesis-1.0p6/etc/version Genesis-1.0p7/etc/version
*** Genesis-1.0p6/etc/version	Tue May 21 09:38:05 1996
--- Genesis-1.0p7/etc/version	Sun May 26 13:13:54 1996
***************
*** 1 ****
! 1.0p6
--- 1 ----
! 1.0p7
diff -rc Genesis-1.0p6/src/modules/cdc_string.c Genesis-1.0p7/src/modules/cdc_string.c
*** Genesis-1.0p6/src/modules/cdc_string.c	Wed May 22 14:41:49 1996
--- Genesis-1.0p7/src/modules/cdc_string.c	Mon May 27 11:48:58 1996
***************
*** 358,382 ****
  
  /* Encrypt a string. */
  NATIVE_METHOD(crypt) {
!     char     * s,
!              * str;
!     string_t * crypt;
! 
      INIT_1_OR_2_ARGS(STRING, STRING)
! 
!     s = string_chars(STR1);
  
      if (argc == 2) {
!         if (string_length(STR2) != 2)
!             THROW((salt_id, "Salt (%S) is not two characters.", args[1].u.str))
!         str = crypt_string(s, string_chars(args[1].u.str));
      } else {
!         str = crypt_string(s, NULL);
      }
  
!     crypt = string_from_chars(str, strlen(str));
! 
!     CLEAN_RETURN_STRING(crypt);
  }
  
  NATIVE_METHOD(uppercase) {
--- 358,385 ----
  
  /* Encrypt a string. */
  NATIVE_METHOD(crypt) {
!     char     * s,  
!                salt[3],
!              * ss,
!              * crypted;
!     
      INIT_1_OR_2_ARGS(STRING, STRING)
!     
!     s = string_chars(STR1); 
  
      if (argc == 2) {
!         if (string_length(STR2) < 2)
!             THROW((salt_id, "Salt (%S) is not two characters.", STR2))
!         ss = string_chars(STR2);
!         salt[0] = ss[0];
!         salt[1] = ss[1];
!         salt[2] = (char) NULL;
!         crypted = crypt_string(s, salt);
      } else {
!         crypted = crypt_string(s, NULL);
      }
  
!     CLEAN_RETURN_STRING(string_from_chars(crypted, strlen(crypted)));
  }
  
  NATIVE_METHOD(uppercase) {
***************
*** 411,417 ****
  
      INIT_1_ARG(STRING);
  
!     str = string_dup(ARG1);
  
      CLEAN_STACK();
      anticipate_assignment();
--- 414,420 ----
  
      INIT_1_ARG(STRING);
  
!     str = string_dup(STR1);
  
      CLEAN_STACK();
      anticipate_assignment();