diff --git a/kernel/CompildCode.st b/kernel/CompildCode.st
index 4dcca1b..ea96532 100644
--- a/kernel/CompildCode.st
+++ b/kernel/CompildCode.st
@@ -150,20 +150,10 @@ superclass for blocks and methods'>
 	self subclassResponsibility
     ]
 
-    = aMethod [
-	"Answer whether the receiver and aMethod are equal"
+    = anObject [
+	<category: 'testing'>
 
-	<category: 'basic'>
-	self == aMethod ifTrue: [^true].
-	self class == aMethod class ifFalse: [^false].
-	header = aMethod getHeader ifFalse: [^false].
-	self numLiterals = aMethod numLiterals ifFalse: [^false].
-	self numBytecodes = aMethod numBytecodes ifFalse: [^false].
-	1 to: self numLiterals
-	    do: [:i | (self literalAt: i) = (aMethod literalAt: i) ifFalse: [^false]].
-	1 to: self numBytecodes
-	    do: [:i | (self bytecodeAt: i) = (aMethod bytecodeAt: i) ifFalse: [^false]].
-	^true
+        ^ self == anObject
     ]
 
     hash [
diff --git a/kernel/CompildMeth.st b/kernel/CompildMeth.st
index 72f10e4..250aa67 100644
--- a/kernel/CompildMeth.st
+++ b/kernel/CompildMeth.st
@@ -233,14 +233,6 @@ instances.'>
 	    ifFalse: [descriptor sourcePos]
     ]
 
-    = aMethod [
-	"Answer whether the receiver and aMethod are equal"
-
-	<category: 'basic'>
-	self == aMethod ifTrue: [^true].
-	^super = aMethod and: [descriptor = aMethod descriptor]
-    ]
-
     hash [
 	"Answer an hash value for the receiver"
 
@@ -719,9 +711,9 @@ instances.'>
 	funcOrDescr isString ifFalse: [
 	    self isValidCCall ifFalse: [^'C call-out not empty'].
 	    newMethod := CompiledMethod
-	        cCall: funcOrDescr
-	        numArgs: self numArgs
-	        attributes: self attributes.
+		cCall: funcOrDescr
+		numArgs: self numArgs
+		attributes: self attributes.
 	    newMethod descriptor: self descriptor.
 	    self become: newMethod.
 	    ^nil].
diff --git a/kernel/CompiledBlk.st b/kernel/CompiledBlk.st
index 96a2b8d..73367cb 100644
--- a/kernel/CompiledBlk.st
+++ b/kernel/CompiledBlk.st
@@ -130,14 +130,6 @@ CompiledCode subclass: CompiledBlock [
 	^method methodSourcePos
     ]
 
-    = aMethod [
-	"Answer whether the receiver and aMethod are equal"
-
-	<category: 'basic'>
-	self == aMethod ifTrue: [^true].
-	^super = aMethod and: [method = aMethod method]
-    ]
-
     method [
 	"Answer the CompiledMethod in which the receiver lies"
 
diff --git a/tests/gst.in b/tests/gst.in
index 9728954..af1fb1f 100644
--- a/tests/gst.in
+++ b/tests/gst.in
@@ -2,4 +2,5 @@
 address@hidden@
 : ${LIBTOOL=$abs_top_builddir/libtool}
 
+export LTDL_LIBRARY_PATH=$abs_top_builddir${LTDL_LIBRARY_PATH:+:$LTDL_LIBRARY_PATH}
 exec $LIBTOOL --mode=execute @PACKAGE_DLOPEN_FLAGS@ $abs_top_builddir/address@hidden@ ${1+"$@"}