diff --git a/lib/vm/call_site.rb b/lib/vm/call_site.rb
index 6f2662dc..272b44ac 100644
--- a/lib/vm/call_site.rb
+++ b/lib/vm/call_site.rb
@@ -20,7 +20,7 @@ module Vm
         raise "meta #{name} " if value.is_a? Boot::MetaClass
         function.receiver.move( into, value ) if value.register_symbol != function.receiver.register_symbol
       end
-      raise "function call '#{name}' has #{args.length} arguments, but function has #{function.args.length}" if args.length != function.args.length
+      raise "function call '#{args.inspect}' has #{args.length} arguments, but function has #{function.args.length}" if args.length != function.args.length
       args.each_with_index do |arg , index|
         if arg.is_a?(IntegerConstant) or arg.is_a?(StringConstant)
           function.args[index].load into , arg
diff --git a/test/fragments/helper.rb b/test/fragments/helper.rb
index 2eac4571..7071d3f4 100644
--- a/test/fragments/helper.rb
+++ b/test/fragments/helper.rb
@@ -26,6 +26,7 @@ module Fragments
       if part.is_a? Ast::FunctionExpression
         expr    = part.compile( @object_space.context )
       else
+        puts part.inspect if part.is_a? Hash
         expr    = part.compile( @object_space.context )
       end
     end
diff --git a/test/fragments/test_list.rb b/test/fragments/test_list.rb
new file mode 100644
index 00000000..774e2715
--- /dev/null
+++ b/test/fragments/test_list.rb
@@ -0,0 +1,64 @@
+require_relative 'helper'
+
+class TestList < MiniTest::Test
+  include Fragments
+
+  def test_list_clas
+    @string_input = <<HERE
+class Object
+end 
+class List
+  def Node.new()
+    return 4
+  end
+  def get(key)
+    if( @next )
+      return @next.get(key)
+    else
+      return 0
+    end
+  end
+  def set(key , value)
+    if(@next)
+      @next.set(key,value)
+    else
+      @next = Node.new()
+      @next.initialize(key,value)
+    end
+  end
+end
+class Node < List
+  def initialize(key,value)
+    @key = key
+    @value = value
+  end
+  def get(key)
+    if(@key == key)
+      return @value
+    else
+      return super(key)
+    end
+  end
+  def set(key,value)
+    if(@key == key)
+      @value = value
+    else
+      super(key,value)
+    end
+  end
+end
+list = List.new()
+list.set(1,1)
+list.set(2,2)
+i = list.get(1)
+i.putint()
+HERE
+    @should = [0x0,0xb0,0xa0,0xe3,0x2a,0x10,0xa0,0xe3,0x13,0x0,0x0,0xeb,0x1,0x70,0xa0,0xe3,0x0,0x0,0x0,0xef,0x0,0x70,0xa0,0xe1,0x0,0x40,0x2d,0xe9,0xa,0x30,0x42,0xe2,0x22,0x21,0x42,0xe0,0x22,0x22,0x82,0xe0,0x22,0x24,0x82,0xe0,0x22,0x28,0x82,0xe0,0xa2,0x21,0xa0,0xe1,0x2,0x41,0x82,0xe0,0x84,0x30,0x53,0xe0,0x1,0x20,0x82,0x52,0xa,0x30,0x83,0x42,0x30,0x30,0x83,0xe2,0x0,0x30,0xc1,0xe5,0x1,0x10,0x41,0xe2,0x0,0x0,0x52,0xe3,0xef,0xff,0xff,0x1b,0x0,0x80,0xbd,0xe8,0x0,0x40,0x2d,0xe9,0x1,0x20,0xa0,0xe1,0x20,0x10,0x8f,0xe2,0x9,0x10,0x81,0xe2,0xe9,0xff,0xff,0xeb,0x14,0x10,0x8f,0xe2,0xc,0x20,0xa0,0xe3,0x1,0x0,0xa0,0xe3,0x4,0x70,0xa0,0xe3,0x0,0x0,0x0,0xef,0x0,0x70,0xa0,0xe1,0x0,0x80,0xbd,0xe8,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20,0x20]
+    @output = "        42  "
+    parse
+    @target = [:String , :plus]
+    write "class"
+  end
+
+end
+
diff --git a/test/fragments/test_string_class.rb b/test/fragments/test_string_class.rb
index da38930a..cffb4d40 100644
--- a/test/fragments/test_string_class.rb
+++ b/test/fragments/test_string_class.rb
@@ -1,9 +1,9 @@
 require_relative 'helper'
 
-class TestClass < MiniTest::Test
+class TestStringClass < MiniTest::Test
   include Fragments
 
-  def test_class
+  def test_string_class
     @string_input = <<HERE
 class Object
   def raise()