diff --git a/XilinxProcessorIPLib/drivers/dptx/data/dptx.tcl b/XilinxProcessorIPLib/drivers/dptx/data/dptx.tcl
index 3a93308e..21bc72de 100644
--- a/XilinxProcessorIPLib/drivers/dptx/data/dptx.tcl
+++ b/XilinxProcessorIPLib/drivers/dptx/data/dptx.tcl
@@ -53,7 +53,7 @@ proc xdefine_include_file {drv_handle file_name drv_string args} {
     set arg "NUM_INSTANCES"
     set posn [lsearch -exact $args $arg]
     if {$posn > -1} {
-        puts $file_handle "/* Definitions for driver [string toupper [get_property name $drv_handle]] */"
+        puts $file_handle "/* Definitions for driver [string toupper [common::get_property name $drv_handle]] */"
         # Define NUM_INSTANCES
         puts $file_handle "#define [xget_dname $drv_string $arg] [llength $periphs]"
         set args [lreplace $args $posn $posn]
@@ -62,11 +62,11 @@ proc xdefine_include_file {drv_handle file_name drv_string args} {
     # Check if it is a driver parameter
     lappend newargs
     foreach arg $args {
-        set value [get_property CONFIG.$arg $drv_handle]
+        set value [common::get_property CONFIG.$arg $drv_handle]
         if {[llength $value] == 0} {
             lappend newargs $arg
         } else {
-            puts $file_handle "#define [xget_dname $drv_string $arg] [get_property $arg $drv_handle]"
+            puts $file_handle "#define [xget_dname $drv_string $arg] [common::get_property $arg $drv_handle]"
         }
     }
     set args $newargs
@@ -75,7 +75,7 @@ proc xdefine_include_file {drv_handle file_name drv_string args} {
     set device_id 0
     foreach periph $periphs {
         puts $file_handle ""
-        puts $file_handle "/* Definitions for peripheral [string toupper [get_property NAME $periph]] */"
+        puts $file_handle "/* Definitions for peripheral [string toupper [common::get_property NAME $periph]] */"
 
         foreach arg $args {
             if {[string compare -nocase "DEVICE_ID" $arg] == 0} {
@@ -90,7 +90,7 @@ proc xdefine_include_file {drv_handle file_name drv_string args} {
                 }
                 set value $freq
             } else {
-                set value [get_property CONFIG.$arg $periph]
+                set value [common::get_property CONFIG.$arg $periph]
             }
             if {[llength $value] == 0} {
                 set value 0
@@ -123,7 +123,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} {
 
    # Get the names of all the peripherals connected to this driver
    foreach periph $periphs {
-       set peripheral_name [string toupper [get_property NAME $periph]]
+       set peripheral_name [string toupper [common::get_property NAME $periph]]
        lappend peripherals $peripheral_name
    }
 
@@ -145,7 +145,7 @@ proc xdefine_canonical_xpars {drv_handle file_name drv_string args} {
 
    set i 0
    foreach periph $periphs {
-       set periph_name [string toupper [get_property NAME $periph]]
+       set periph_name [string toupper [common::get_property NAME $periph]]
 
        # Generate canonical definitions only for the peripherals whose
        # canonical name is not the same as hardware instance name