diff --git a/lib/Slic3r/GUI/Plater.pm b/lib/Slic3r/GUI/Plater.pm
index f05ea86bf..eb3aac0e2 100644
--- a/lib/Slic3r/GUI/Plater.pm
+++ b/lib/Slic3r/GUI/Plater.pm
@@ -1470,7 +1470,7 @@ sub send_gcode {
                 Slic3r::encode_path($self->{send_gcode_file}),
                 # Remove the UTF-8 flag from the perl string, so the LWP::UserAgent can insert 
                 # the UTF-8 encoded string into the request as a byte stream.
-                Encode::encode_utf8(Slic3r::path_to_filename($self->{send_gcode_file}))
+                Slic3r::path_to_filename_raw($self->{send_gcode_file})
             ],
             print => $self->{send_gcode_file_print} ? 1 : 0,
         ],
diff --git a/xs/xsp/XS.xsp b/xs/xsp/XS.xsp
index e0f6ab18b..e31570ca7 100644
--- a/xs/xsp/XS.xsp
+++ b/xs/xsp/XS.xsp
@@ -119,6 +119,13 @@ path_to_filename(src)
         RETVAL = Slic3r::PerlUtils::path_to_filename(src);
     OUTPUT: RETVAL
 
+local_encoded_string
+path_to_filename_raw(src)
+    const char *src;
+    CODE:
+        RETVAL = Slic3r::PerlUtils::path_to_filename(src);
+    OUTPUT: RETVAL
+
 std::string
 path_to_stem(src)
     const char *src;