diff --git a/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl b/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl
index 1662d1d59..087eea463 100644
--- a/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl
+++ b/SWIG/Examples/test-suite/tcl/profiletest_runme.tcl
@@ -1,9 +1,8 @@
-catch { load ./profiletest.so profiletest}
-catch { load ./profiletest.dll profiletest}    ;# Windows
+catch { load ./profiletest[info sharedlibextension] profiletest}
 
 set  a [new_A]
 set  b [new_B]
 
 for {set i 0} {$i < 1000000} {incr i 1} {
     set a [B_fn $b $a]
-}
\ No newline at end of file
+}