diff --git a/Lib/perl5/std_vector.i b/Lib/perl5/std_vector.i
index 1fb5b9c63..8a300ee0b 100644
--- a/Lib/perl5/std_vector.i
+++ b/Lib/perl5/std_vector.i
@@ -240,7 +240,7 @@ namespace std {
                 for (int i=0; i<len; i++) {
                     tv = av_fetch(av, i, 0);
                     if (CHECK_T(*tv)) {
-                        $1.push_back(TO_T(*tv));
+                        $1.push_back((T)TO_T(*tv));
                     } else {
                         SWIG_croak("Type error in argument $argnum of "
                                    "$symname. "
@@ -269,7 +269,7 @@ namespace std {
                 for (int i=0; i<len; i++) {
                     tv = av_fetch(av, i, 0);
                     if (CHECK_T(*tv)) {
-                        temp.push_back(TO_T(*tv));
+                        temp.push_back((T)TO_T(*tv));
                     } else {
                         SWIG_croak("Type error in argument $argnum of "
                                    "$symname. "