diff --git a/src/db/db/dbNetlistSpiceWriter.cc b/src/db/db/dbNetlistSpiceWriter.cc
index 3cc5cd92d..f72005846 100644
--- a/src/db/db/dbNetlistSpiceWriter.cc
+++ b/src/db/db/dbNetlistSpiceWriter.cc
@@ -449,9 +449,9 @@ NetlistSpiceWriter::NetlistSpiceWriter (NetlistSpiceWriterDelegate *delegate)
   m_allowed_name_chars = s_allowed_name_chars;
   m_not_connect_prefix = s_not_connect_prefix;
 
-  static NetlistSpiceWriterDelegate std_delegate;
   if (! delegate) {
-    mp_delegate.reset (&std_delegate);
+    mp_default_delegate.reset (new NetlistSpiceWriterDelegate ());
+    mp_delegate.reset (mp_default_delegate.get ());
   }
 }
 
diff --git a/src/db/db/dbNetlistSpiceWriter.h b/src/db/db/dbNetlistSpiceWriter.h
index 098b3cf63..8ac165033 100644
--- a/src/db/db/dbNetlistSpiceWriter.h
+++ b/src/db/db/dbNetlistSpiceWriter.h
@@ -176,6 +176,7 @@ private:
 
   const db::Netlist *mp_netlist;
   tl::OutputStream *mp_stream;
+  std::unique_ptr<NetlistSpiceWriterDelegate> mp_default_delegate;
   tl::weak_ptr<NetlistSpiceWriterDelegate> mp_delegate;
   std::map<const db::Net *, size_t> m_net_to_spice_id;
   std::map<const db::Net *, std::string> m_net_to_spice_name;
diff --git a/src/db/unit_tests/dbNetlistWriterTests.cc b/src/db/unit_tests/dbNetlistWriterTests.cc
index 8d15319c5..88b66e2d8 100644
--- a/src/db/unit_tests/dbNetlistWriterTests.cc
+++ b/src/db/unit_tests/dbNetlistWriterTests.cc
@@ -1441,6 +1441,160 @@ TEST(14_WriterBJT4Devices)
   compare_netlists (_this, path, au_path);
 }
 
+TEST(15_SpiceProfiles)
+{
+  db::Netlist nl;
+
+  db::DeviceClass *cls = new db::DeviceClassMOS3Transistor ();
+  cls->set_name ("NMOS");
+  nl.add_device_class (cls);
+
+  db::DeviceClass::SpiceProfile sp = cls->spice_profile (std::string ());
+  sp.element = "X";
+  sp.outgoing_parameters = { { "W", "" }, { "L", "L*2" }, { "X", "X||42.0" }, { "WW", "W*2"} };
+  cls->set_spice_profile ("PROFILE", sp);
+
+  db::Circuit *top = new db::Circuit ();
+  top->set_name ("TOP");
+  nl.add_circuit (top);
+
+  db::Device *dev = new db::Device (cls, "1");
+  top->add_device (dev);
+
+  dev->set_parameter_value (cls->parameter_id_for_name ("W"), 2.5);
+  dev->set_parameter_value (cls->parameter_id_for_name ("L"), 0.5);
+  dev->set_parameter_value (cls->parameter_id_for_name ("AD"), 1.25);
+
+  db::Net *n1, *n2, *n3;
+  n1 = new db::Net ();
+  n1->set_name ("n1");
+  top->add_net (n1);
+  n2 = new db::Net ();
+  n2->set_name ("n2");
+  top->add_net (n2);
+  n3 = new db::Net ();
+  n3->set_name ("n3");
+  top->add_net (n3);
+
+  size_t pid1 = top->add_pin ("p1").id ();
+  size_t pid2 = top->add_pin ("p2").id ();
+  size_t pid3 = top->add_pin ("p3").id ();
+
+  top->connect_pin (pid1, n1);
+  top->connect_pin (pid2, n2);
+  top->connect_pin (pid3, n3);
+
+  dev->connect_terminal (cls->terminal_id_for_name ("S"), n1);
+  dev->connect_terminal (cls->terminal_id_for_name ("G"), n2);
+  dev->connect_terminal (cls->terminal_id_for_name ("D"), n3);
+
+  {
+    tl::OutputMemoryStream om;
+
+    {
+      tl::OutputStream stream (om);
+      db::NetlistSpiceWriter writer;
+      writer.set_profile ("PROFILE");
+      writer.set_with_comments (false);
+      writer.write (stream, nl, "written by unit test");
+    }
+
+    EXPECT_EQ (std::string (om.data (), om.size ()),
+      "* written by unit test\n\n"
+      ".SUBCKT TOP 1 2 3\n"
+      "X1 3 2 1 1 NMOS L=1U WW=5 X=42\n"
+      ".ENDS TOP\n"
+    );
+  }
+
+  {
+    tl::OutputMemoryStream om;
+
+    {
+      tl::OutputStream stream (om);
+      db::NetlistSpiceWriter writer;
+      writer.delegate ()->set_write_all_parameters (true);
+      writer.set_profile ("PROFILE");
+      writer.set_with_comments (false);
+      writer.write (stream, nl, "written by unit test");
+    }
+
+    EXPECT_EQ (std::string (om.data (), om.size ()),
+      "* written by unit test\n\n"
+      ".SUBCKT TOP 1 2 3\n"
+      // @@@ not "5U"?
+      "X1 3 2 1 1 NMOS L=1U AS=0P AD=1.25P PS=0U PD=0U WW=5 X=42\n"
+      ".ENDS TOP\n"
+    );
+  }
+
+  sp.outgoing_parameters = { { "L", "L*2" }, { "*!", "_" } };
+  cls->set_spice_profile ("PROFILE", sp);
+
+  {
+    tl::OutputMemoryStream om;
+
+    {
+      tl::OutputStream stream (om);
+      db::NetlistSpiceWriter writer;
+      writer.set_profile ("PROFILE");
+      writer.set_with_comments (false);
+      writer.write (stream, nl, "written by unit test");
+    }
+
+    EXPECT_EQ (std::string (om.data (), om.size ()),
+      "* written by unit test\n\n"
+      ".SUBCKT TOP 1 2 3\n"
+      "X1 3 2 1 1 NMOS L=1U W=2.5U\n"
+      ".ENDS TOP\n"
+    );
+  }
+
+  sp.outgoing_parameters = { { "L", "L*2" }, { "*?", "_" } };
+  cls->set_spice_profile ("PROFILE", sp);
+
+  {
+    tl::OutputMemoryStream om;
+
+    {
+      tl::OutputStream stream (om);
+      db::NetlistSpiceWriter writer;
+      writer.set_profile ("PROFILE");
+      writer.set_with_comments (false);
+      writer.write (stream, nl, "written by unit test");
+    }
+
+    EXPECT_EQ (std::string (om.data (), om.size ()),
+      "* written by unit test\n\n"
+      ".SUBCKT TOP 1 2 3\n"
+      "X1 3 2 1 1 NMOS L=1U AS=0P AD=1.25P PS=0U PD=0U\n"
+      ".ENDS TOP\n"
+    );
+  }
+
+  sp.outgoing_parameters = { { "L", "L*2" }, { "**", "_" } };
+  cls->set_spice_profile ("PROFILE", sp);
+
+  {
+    tl::OutputMemoryStream om;
+
+    {
+      tl::OutputStream stream (om);
+      db::NetlistSpiceWriter writer;
+      writer.set_profile ("PROFILE");
+      writer.set_with_comments (false);
+      writer.write (stream, nl, "written by unit test");
+    }
+
+    EXPECT_EQ (std::string (om.data (), om.size ()),
+      "* written by unit test\n\n"
+      ".SUBCKT TOP 1 2 3\n"
+      "X1 3 2 1 1 NMOS L=1U W=2.5U AS=0P AD=1.25P PS=0U PD=0U\n"
+      ".ENDS TOP\n"
+    );
+  }
+
+}
 
 namespace {