From ca1fa829e416396f90a13c9c98517d907e26eced Mon Sep 17 00:00:00 2001
From: luben <karavelov@spnet.net>
Date: Mon, 16 Aug 2010 11:17:49 +0300
Subject: [PATCH 7/7] fix warning in call/args.c

---
 src/call/args.c |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/call/args.c b/src/call/args.c
index c87ea8f..7328e89 100644
--- a/src/call/args.c
+++ b/src/call/args.c
@@ -491,8 +491,8 @@ dissect_aggregate_arg(PARROT_INTERP, ARGMOD(PMC *call_object), ARGIN(PMC *aggreg
         Hash * hash = (Hash *)VTABLE_get_pointer(interp, aggregate), key;
         parrot_hash_iterate(hash,
             PARROT_ASSERT(_bucket->key);
-            VTABLE_set_pmc_keyed_str(interp,call_object,_bucket->key,
-                VTABLE_get_pmc_keyed_str(interp, aggregate, _bucket->key));
+            VTABLE_set_pmc_keyed_str(interp,call_object, (STRING *)_bucket->key,
+                VTABLE_get_pmc_keyed_str(interp, aggregate, (STRING *)_bucket->key));
         );
     }
     else {
-- 
1.7.1

