diff --git a/scsh/network1.c b/scsh/network1.c
index 6ac0a11..a3df5a8 100644
--- a/scsh/network1.c
+++ b/scsh/network1.c
@@ -380,13 +380,14 @@ s48_value send_substring(s48_value scm_sockfd,
 		   buf_part, end-start, 
 		   flags,
 		   (struct sockaddr *)&name, sizeof(name));
-      break;
+	S48_GC_UNPROTECT();
+	
+	break;
       }
     default:
       s48_raise_argument_type_error (s48_extract_fixnum (scm_family));	
       /* error unknown address family */
     }
-  S48_GC_UNPROTECT();
   if (n >= 0)
     return s48_enter_fixnum (n);