Index: t/pmc/objects.t
===================================================================
--- t/pmc/objects.t	(revision 17113)
+++ t/pmc/objects.t	(working copy)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 78;
+use Parrot::Test tests => 79;
 
 =head1 NAME
 
@@ -451,6 +451,41 @@
 Foo.i Foo.j Bar.j Bar.k
 OUTPUT
 
+pir_output_is( <<'CODE', <<'OUTPUT', "addmethod" );
+
+.sub main :main
+
+		newclass $P0, 'Foo'
+		$P2 = get_global  'sayFoo'
+
+		# add a method BEFORE creating a Foo object
+		addmethod $P0, 'foo', $P2
+		$P1 = new 'Foo'
+		$P1.'foo'()
+		
+		# get a method from some other namespace
+		$P2 = get_global ['Bar'], 'sayBar'
+				
+		# add a method AFTER creating	the object	
+		addmethod $P0, 'bar', $P2
+		$P1.'bar'()		
+.end
+
+.sub sayFoo
+	print "foo\n"
+.end
+
+.namespace ['Bar']
+
+.sub sayBar 
+	print "bar\n"
+.end
+
+CODE
+foo
+bar
+OUTPUT
+
 pasm_output_like( <<'CODE', <<'OUTPUT', "classoffset: normal operation" );
     newclass P1, "Foo"
     find_type I0, "Foo"