Index: trunk/Include/system/gc.sbp
===================================================================
--- trunk/Include/system/gc.sbp	(revision 422)
+++ trunk/Include/system/gc.sbp	(revision 440)
@@ -815,6 +815,6 @@
 End Function
 
-Function _System_GC_free_for_SweepingDelete( ptr As *Object )
+Sub _System_GC_free_for_SweepingDelete( ptr As *Object )
 	' free
 	_System_pGC->__free_ex( ptr, True )
-End Function
+End Sub