diff --git a/Source/GSTextStorage.m b/Source/GSTextStorage.m
index 24308ca85..0f90a42d7 100644
--- a/Source/GSTextStorage.m
+++ b/Source/GSTextStorage.m
@@ -396,8 +396,13 @@ _attributesAtIndexEffectiveRange(
 #if	SANITY_CHECKS
 
 #define	SANITY()	[self sanity]
-	
-- (void) sanity
+#else
+#define	SANITY()	
+#endif
+
+/* We always compile in this method so that it is available from
+ * regression test cases.  */
+- (void) _sanity
 {
   GSTextInfo	*info;
   unsigned	i;
@@ -416,9 +421,6 @@ _attributesAtIndexEffectiveRange(
       l = info->loc;
     }
 }
-#else
-#define	SANITY()	
-#endif
 
 /*
  * If we are multi-threaded, we must guard access to the uniquing set.