diff --git a/SWIG/Lib/perl5/std_vector.i b/SWIG/Lib/perl5/std_vector.i
index 8a300ee0b..a0232ef22 100644
--- a/SWIG/Lib/perl5/std_vector.i
+++ b/SWIG/Lib/perl5/std_vector.i
@@ -126,7 +126,7 @@ namespace std {
                 /* wrapped vector? */
                 std::vector<T >* v;
                 if (SWIG_ConvertPtr($input,(void **) &v, 
-                                    $1_&descriptor,0) != -1) {
+                                    $&1_descriptor,0) != -1) {
                     $1 = 1;
                 } else if (SvROK($input)) {
                     /* native sequence? */
@@ -300,7 +300,7 @@ namespace std {
                 /* wrapped vector? */
                 std::vector<T >* v;
                 if (SWIG_ConvertPtr($input,(void **) &v, 
-                                    $1_&descriptor,0) != -1) {
+                                    $&1_descriptor,0) != -1) {
                     $1 = 1;
                 } else if (SvROK($input)) {
                     /* native sequence? */