diff --git a/scheme-id.scm b/scheme-id.scm
index 15a438f..b467f91 100644
--- a/scheme-id.scm
+++ b/scheme-id.scm
@@ -44,6 +44,10 @@
 (title "Larceny")
 (contact "William Clinger")
 
+(id s7)
+(title "s7")
+(contact "Bill Schottstaedt")
+
 (id sagittarius)
 (title "Sagittarius Scheme")
 (contact "Takashi Kato")