diff --git a/src/xschem.tcl b/src/xschem.tcl
index c0171d2e..a4b1f6eb 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2105,10 +2105,12 @@ proc load_file_dialog {{msg {}} {ext {}} {global_initdir {INITIALINSTDIR}}
   set_ne myload_files2 {}
   panedwindow  .dialog.l -orient horizontal
   frame .dialog.l.paneleft
-  if {$tcl_version > 8.5} { set just {-justify right}} else {set just {}}
-  eval [subst {listbox .dialog.l.paneleft.list -listvariable myload_files1 -width 20 -height 12 $just \
+  eval [subst {listbox .dialog.l.paneleft.list -listvariable myload_files1 -width 20 -height 12 \
     -yscrollcommand ".dialog.l.paneleft.yscroll set" -selectmode browse \
     -xscrollcommand ".dialog.l.paneleft.xscroll set" -exportselection 0}]
+  if { ![catch {.dialog.l.paneleft.list cget -justify}]} {
+    .dialog.l.paneleft.list configure -justify right
+  }
   myload_set_colors1
   scrollbar .dialog.l.paneleft.yscroll -command ".dialog.l.paneleft.list yview" 
   scrollbar .dialog.l.paneleft.xscroll -command ".dialog.l.paneleft.list xview" -orient horiz
diff --git a/xschem_library/logic/ram.sch b/xschem_library/logic/ram.sch
index ee3d774a..ea631ed3 100644
--- a/xschem_library/logic/ram.sch
+++ b/xschem_library/logic/ram.sch
@@ -1,4 +1,4 @@
-v {xschem version=2.9.9 file_version=1.2 }
+v {xschem version=3.0.0 file_version=1.2 }
 G {
 
     process(data, CEN, OEN) begin
diff --git a/xschem_library/logic/ram.sym b/xschem_library/logic/ram.sym
index 472abe4c..0b8dff53 100644
--- a/xschem_library/logic/ram.sym
+++ b/xschem_library/logic/ram.sym
@@ -1,5 +1,6 @@
-v {xschem version=2.9.6 file_version=1.1}
-G {type=subcircuit
+v {xschem version=3.0.0 file_version=1.2 }
+G {}
+K {type=subcircuit
 vhdl_stop=true
 verilog_netlist=true
 format="@name @pinlist @symname"
diff --git a/xschem_library/logic/ram_tb.sch b/xschem_library/logic/ram_tb.sch
index d07dcff2..5ece66c0 100644
--- a/xschem_library/logic/ram_tb.sch
+++ b/xschem_library/logic/ram_tb.sch
@@ -1,5 +1,6 @@
-v {xschem version=2.9.6 file_version=1.1}
+v {xschem version=3.0.0 file_version=1.2 }
 G {}
+K {}
 V {
 integer tck = 10000; // 10 ns
 
@@ -27,7 +28,7 @@ end endtask
 
 initial begin
   $dumpfile("dumpfile.vcd");
-  $dumpvars;
+  $dumpvars(0, ram_tb);
 
   CK = 0;
   WEN = 1;